#!/usr/bin/perl -w
use strict;
use 5.010;

$^I = "";

my @wifis = (qr/Wi-Fi/, qr/Wi\\u2011Fi/, qr/wi-fi/);
my @wlans = ("WLAN", "WLAN", "wlan");
my $pattern;
my $isComment;
while (<>) {
  if (m#<!--.*-->#) {
  } elsif (m#<!--(?!.*-->).*$#) {
    $isComment = 1;
  } elsif ($isComment) {
    $isComment = 0 if m#-->#;
  } else {
    for (my $i = 0; $i <= $#wifis; $i++) {
      $pattern = $wifis[$i];
      s#$pattern#$wlans[$i]#g;
    }
  }
  print;
}
